home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Optionals / CircleList < prev    next >
Text File  |  1986-01-09  |  686b  |  39 lines
  1. :CLASS CircleList     <Super LinkedList
  2.     
  3.         \ ( -- data )
  4.     :M NEXT:
  5.         get: size 0=
  6.         IF
  7.             EOLL
  8.         ELSE
  9.             get: current get: back =
  10.             IF
  11.                 get: front
  12.                 put: current
  13.                 getdata: super
  14.             ELSE
  15.                 next: super
  16.             THEN
  17.  
  18.         THEN
  19.     ;M
  20.  
  21.         \ ( -- data )
  22.     :M PREV:    
  23.         get: size 0=
  24.         IF
  25.             EOLL
  26.         ELSE
  27.             get: current get: front =
  28.             IF
  29.                 get: back 
  30.                 put: current 
  31.                 getData: super
  32.             ELSE
  33.                 prev: super
  34.             THEN
  35.         THEN
  36.     ;M
  37.  
  38. ;CLASS
  39.